home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1984 December / 1984-12.d64 / magic voice (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  2KB  |  48 lines
  1. 10 dim c$(10),eq$(40),ho$(40),t$(20):goto80
  2. 20 fori=1to40:ifk$=ho$(i)thenk$=eq$(i):i=40
  3. 30 next:fori=1to3
  4. 40 ifk$<>h1$(i)then60
  5. 50 k$=e1$(i):(NULL)endk$:t$(w)=k$:w=w+1:k$=e1$(i+3):i=3
  6. 60 next:return
  7. 70 fori=0tow-1:(NULL)endt$(i):next:fori=0tow-1:t$(i)="":next:w=0:return
  8. 80 poke49457,76:poke49458,174:poke49459,167:rem avert illegal qty error
  9. 90 fork=1to10:readc:c$(k)=chr$(c):next:rem editing commands
  10. 100 fori=1to40:readho$(i),eq$(i):next:rem homonymns & equivalents
  11. 110 fori=1to3:readh1$(i):next:fori=1to6:reade1$(i):next:rem 2-part equivalents
  12. 120 poke53281,1:poke53280,6:poke53272,23:rem screen colors & lowercase
  13. 130 print"[147][198][201][206][199][197][210] [212][193][204][203]"
  14. 140 print"":input"[210]ate (1-10)[146]";rt$
  15. 150 rt=val(rt$):ifrt<1orrt>10then130
  16. 160 print "[156][211]ay each letter (y/n) ?"
  17. 170 geta$:ifa$=""ora$<>"y"anda$<>"n"then170
  18. 180 pl=-(a$="y")
  19. 190 gosub380
  20. 200 print"[175][157]";:(NULL)for(rt):rt=(rt=10)*10+rt:poke1024,rt+48:poke55296,0
  21. 210 geta$:ifa$=""then210
  22. 220 ifpos(0)>78thena$=chr$(13)
  23. 230 print" [157]";:t=0:fori=1to10:ifa$=c$(i)thent=i:i=10
  24. 240 nexti:ift=3ort=8thenprintc$(8):gosub380
  25. 250 ift=2ort=4ort=7thenprinta$;:ift=4andlen(k$)>0thenk$=mid$(k$,1,len(k$)-1)
  26. 260 ift<>0then200
  27. 270 ifa$=chr$(133)thenrt=rt+1+(rt=10)*10:goto200
  28. 280 ifa$>chr$(192)anda$<chr$(218)thenprinta$;:a$=chr$(asc(a$)-128):goto360
  29. 290 ifa$<>chr$(32)then320
  30. 300 ifk$=""thenprinta$;:goto200
  31. 310 gosub20:printa$;:(NULL)endk$:t$(w)=k$:k$="":w=w+1:goto200
  32. 320 ifa$<>chr$(13)then350
  33. 330 ifk$=""thenprinta$;:gosub70:goto200
  34. 340 gosub20:t$(w)=k$:k$="":w=w+1:printa$;:gosub70:goto200
  35. 350 printa$;
  36. 360 k$=k$+a$:ifpl=1then:(NULL)enda$
  37. 370 goto200
  38. 380 print"[147]    [204][197][212] [217][207][213][210]  [198][201][206][199][197][210][211] [159] [196][207] [212][200][197]  [212][193][204][203][201][206][199] [146]":return
  39. 390 data 17,18,19,20,29,145,146,147,148,157
  40. 400 rem 17=cd 18=rvs 19=hm 20=del 29=cr 145=cu 146=roff 147=clr 148=inst 157=cl
  41. 410 data ad,add,bee,b,see,c,sea,c,gee,g,gray,grey,eye,i,inn,in,jay,j
  42. 420 data moor,more,knot,not,ore,or,oar,or,pea,p,queue,q,tea,t,tee,t,tie,ty
  43. 430 data ewe,u,ewes,use,wee,we
  44. 440 data #,number,&,and,',apostrophe,*,times,+,plus,-,minus
  45. 450 data 0,zero,1,one,2,two,3,three,4,four,5,five,6,six,7,seven,8,eight
  46. 460 data 9,nine,=,equals,?,question,@,at
  47. 470 data /,<,>,divided,less,more,by,than,than
  48.